home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / powerd / lib / powerd_lib.lha / PowerD / RealStr_ieee.d < prev    next >
Encoding:
Text File  |  2000-02-20  |  302 b   |  16 lines
  1. OPT    NOFPU,NOEXE
  2.  
  3. PROC RealStr(str:PTR TO CHAR,f:DOUBLE,n=1)(PTR TO CHAR)
  4.     DEFD    d
  5.     DEFL    top,rest
  6.     DEF    buf[24]:CHAR        // this is large enough
  7.     d:=FAbs(f)
  8.     top:=d
  9.     d-=top
  10.     d*=1000000000
  11.     rest:=d
  12.     IF f<0 THEN top:=Neg(top)
  13.     StringF(buf,'\d.\z\r\d[9]',top,rest)
  14.     StrCopy(str,buf,StrLen(buf)-9+n)
  15. ENDPROC str
  16.